home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
400 MB of Top PC Shareware
/
400 MB Of Top PC Shareware.iso
/
misc
/
help30.exe
/
HLPCNTXT.SMM
< prev
next >
Wrap
INI File
|
1992-06-08
|
6KB
|
719 lines
[ver]
4
[sty]
[files]
[charset]
82
ANSI (Windows, IBM CP 1252)
[revisions]
0
[prn]
HP LaserJet III
[port]
LPT3:
[lang]
1
[desc]
Creates a Context footnote from the title for the help topic.
708029156
22
693508439
97
1
0
0
0
0
0
[fopts]
0
1
0
0
[lnopts]
2
Body Text
1
[docopts]
5
2
[GramStyle]
[tag]
Body Text
2
[fnt]
TimesNewRomanPS
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Text
0
0
[tag]
Body Single
3
[fnt]
TimesNewRomanPS
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Single
0
0
[tag]
Bullet
4
[fnt]
TimesNewRomanPS
240
0
49152
[algn]
1
1
0
288
288
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*0>
360
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Bullet
0
0
[tag]
Bullet 1
5
[fnt]
TimesNewRomanPS
240
0
49152
[algn]
1
1
288
288
288
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*5>
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Bullet 1
0
0
[tag]
Number List
6
[fnt]
TimesNewRomanPS
240
0
49152
[algn]
1
1
360
360
360
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*:>.
360
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Number List
0
0
[tag]
Subhead
7
[fnt]
TimesNewRomanPS
240
0
49155
[algn]
1
1
0
0
0
[spc]
33
273
1
72
72
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
2
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Subhead
0
0
[tag]
Title
8
[fnt]
Arial MT
360
0
16385
[algn]
4
1
0
0
0
[spc]
33
446
1
144
72
1
100
[brk]
16
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
1
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Title
0
0
[lay]
Standard
513
[rght]
15840
12240
1
1440
1440
1
1440
1440
0
1
0
1
0
2
1
1440
10800
12
1
720
1
1440
1
2160
1
2880
1
3600
1
4320
1
5040
1
5760
1
6480
1
7200
1
7920
1
8640
[hrght]
[lyfrm]
1
11200
0
0
12240
1440
0
1
3
1 0 0 0 0 0 0
0
0
1
[frmlay]
1440
12240
1
1440
72
1
792
1440
0
1
0
1
1
0
1
1440
10800
1
3
9360
[txt]
>
[frght]
[lyfrm]
1
13248
0
14400
12240
15840
0
1
3
1 0 0 0 0 0 0
0
0
2
[frmlay]
15840
12240
1
1440
792
1
14472
1440
0
1
0
1
1
0
1
1440
10800
2
2
4680
3
9360
[txt]
>
[elay]
[l1]
0
[pg]
1
37 0 12 1025 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
[edoc]
<:#278,9360>' This macro creates a Context footnote from the title for a help topic.
<:#278,9360>' It copies the title for the topic, creates a Context footnote, and pastes the title in that footnote.
<:#278,9360>' It then capitalizes the footnote text, converts any spaces to underlines, and places the insertion
<:#278,9360>' point back at the top of the page.
<:#278,9360>' NOTE: This macro assumes that the insertion point is at the left margin on the first line of the
<:#278,9360>' page, that the first line contains only a return, and that the title for the help topic is on the
<:#278,9360>' second line. You must modify the macro if you do not use this format.
<:#278,9360>
<:#278,9360>FUNCTION HLPCNTXT1()
<:#278,9360>declare stripit(name)
<:#278,9360>Type( "<[>Down]<[>Home]<[>SHIFTEnd]" )
<:#278,9360>TEXT=CURSHADE$()
<:#278,9360>TEXT=STRIPIT(TEXT)
<:#278,9360>Type( "<[>Up]<[>Home]" )
<:#278,9360>Footnotes(1 0 1 0 0 )
<:#278,9360>SetStyle("Context" )
<:#278,9360>TYPE("{TEXT}")
<:#278,9360>Type( "<[>SHIFTHome]" )
<:#278,9360>Uppercase( )
<:#278,9360>Type( "<[>RIGHT]" )
<:#278,9360>Type( "<[>ESC]" )
<:#278,9360>END FUNCTION
<:#278,9360>
<:#278,9360>function stripit(name)
<:#278,9360>spos = 1
<:#278,9360>newname = ""
<:#278,9360>while (1)
<:#278,9360> txt = strfield$(name, spos, " ")
<:#278,9360> if txt = -1 or txt = ""
<:#278,9360> break
<:#278,9360> endif
<:#278,9360> newname = strcat$(newname, "_", txt)
<:#278,9360> spos = spos + 1
<:#278,9360>wend
<:#278,9360>newname = right$(newname, (len(newname) - 1))
<:#278,9360>return newname
<:#278,9360>END FUNCTION
>
[Embedded]
00005509
>
[macsum] 2
HLPCNTXT1 0 0 2 8
stripit 202 1 4 23
[macse]
14 HLPCNTXT1
0 6 "[40][36][4131]"
0 24
13
8 1
16 STRIPIT "{1}"
13
8 1
0 6 "[38][36]"
2 160 1 1 0 1 0 0
2 323 1 "Context"
0 6 "{1}"
0 6 "[4132]"
2 273 1
0 6 "[39]"
0 6 "[27]"
6 0
15
9
14 stripit
5 1
8 2
7 ""
8 3
5 1
11 00000211
0 20 "{0}" "{2}" " "
13
8 4
6 4
5 -1
18 0
6 4
7 ""
18 0
1 2
11 00000147
10 00000211
0 16 "{3}" "_" "{4}"
13
8 3
6 2
5 1
3 0
8 2
10 00000033
0 14 "{3}"
13
5 1
3 1
0 807 "{3}" [X]
13
8 3
6 3
15
9
6 1
15
9
00005534
